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OVERVIEW 


Tribology  laboratories  generally  have  more  than  one  type  of  wear  test 
machine.  There  is  a trend  toward  retro- fitting  these  machines  with 
dedicated  computers  to  facilitate  machine  operation,  data  acquisition,  and 
reporting  of  the  test  results.  This  can  greatly  enhance  the  through-put, 
flexibility,  ease  of  use,  and  accuracy  of  the  test  systems.  However,  this 
necessitates  the  operator  learning  how  to  use  the  software  which  runs  each 
machine.  If  every  machine  has  unique  software,  the  user  has  much  to  learn. 
Also,  an  improvement  in  one  program  often  means  that  the  programmer  has  to 
make  a similar  improvement  in  the  other  programs,  tying  up  the  programers 
time  doing  essentially  redundant  work.  One  solution  to  this  problem  is  to 
group  functionally  similar  tests  together  and  have  the  same  software 
program  run  all  those  tests. 

This  report  discusses  such  a system,  where  the  same  computer  and 
software  runs  three  different  wear  test  machines,  a Falex  crossed-cylinder , 
a Falex  block-on-ring,  and  an  in-house  designed  controlled  atmosphere 
tribometer.  The  computer  hardware  will  be  described  first.  Then,  the 
interface  to  the  wear  test  machines  and  the  aspects  that  make  these 
machines  "functionally  similar"  will  be  examined.  Finally,  the  program 
itself,  its  use,  and  the  data  file  structure  will  be  explored.  Appendix  I 
lists  the  program.  Appendix  II  lists  a utility  program  for  aiding  in 
plotting  and  analysis  of  the  results.  Appendix  III  shows  a sample 
printout . 
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COMPUTER  SYSTEM  HARDWARE 


A schematic  diagram  of  the  computer  system  is  shown  in  figure  1 . The 
computer  is  effectively  an  IBM  AT  clone  with  a Hewlett  Packard  Basic 
Language  Processor  board  (also  known  as  a "Viper"  board)  installed.  The 
Viper  board  gives  the  clone  the  ability  to  function  as  either  an  IBM  or  a 
Hewlett  Packard  (HP)  machine.  The  board  comes  with  its  own  processor, 
memory,  and  IEEE  488  interface  buss  to  "talk"  to  the  instrumentation.  In 
the  HP  mode,  a dialect  of  basic,  called  "Rocky  Mountain  Basic",  is  used. 
This  structured  language  was  adopted  primarily  because  it  provides  very 
good  support  for  real  time  instrumentation  control.  It  also  provides  many 
other  features  such  as  extensive  graphics  and  matrix  commands.  There  is 
also  the  capability  to  "talk"  to  the  IBM  DOS  system  as  though  it  were 
simply  another  I/O  device.  This  allows  the  IBM  peripherals  to  be  used  by 
the  Viper  board.  IBM  compatible  disk  files  can  be  generated  as  well  as  HP 
type  files.  The  Viper  board  can  also  independently  run  a test  in  its 
"stand  alone"  mode  while  the  user  performs  other  tasks,  such  as  word 
processing,  using  the  IBM  part  of  the  machine. 

The  computer  we  have  used  has  a high  density  3 1/2"  floppy  drive  A,  a 
double-sided,  double-density  5 1/4"  floppy  drive  B,  and  a 10  Mbyte  hard 
drive  C.  The  older  style  drive  was  chosen  for  the  B drive  to  provide  the 
capability  of  producing  disk  files  for  users  who  need  such  disks.  Drive  C 
has,  among  others,  two  directories.  One  directory  is  called  "HPW"  and 
contains  the  software  to  run  the  Viper  board.  The  other  is  called  "DATA" 
and  is  used  for  storing  data  should  the  floppy  drives  fail  to  function 
properly. 
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Figure  1.  Schematic  Diagram  of 
Computer  System. 
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The  monitor  is  monochrome.  Color  is  supported  by  the  Viper  board,  but 
was  not  necessary.  If  a color  system  were  used,  then  the  program  could 
have  "PEN"  statements  used  through-out  to  take  advantage  of  this. 

The  printer  is  an  HP  Think  Jet  printer  connected  to  the  "LPTl:"  port. 
This  printer  was  chosen  because  it  supports  screen  dumps  from  the  Viper 
board.  If  screen  dumps  while  in  the  HP  mode  are  not  needed,  then  almost 
any  printer  will  do.  The  program  uses  screen  dumps  and  "escape"  codes  for 
this  printer,  however,  and  would  need  to  be  modified.  Connecting  the 
printer  to  the  "LPTl:"  port  allows  both  the  Viper  board  and  the  IBM  to  use 
it.  An  IEEE  488  printer  could  be  used  but  then  only  the  Viper  board  would 
be  able  to  access  it. 

The  HP3421A  data  acquisition  and  control  unit  (DACU)  is  an  IEEE  488 
buss  device  equipped  with  two  boards.  The  first  is  a multiplexer  board  in 
slot  0.  This  allows  the  voltmeter  to  measure  up  to  10  voltages.  The 
second  is  an  optically  isolated  digital  I/O  board  in  slot  2.  This  provides 
the  unit  with  8 digital  input  and  8 digital  output  lines.  Slot  1 is 
currently  left  empty  but  provides  "room"  for  future  expansion.  The 
voltmeter  is  a floating  input  type  with  auto-ranging  and  auto-zeroing 
capabilities . 


WEAR  TESTER  INTERFACE 


Many  wear  testers  are  nearly  identical  from  the  point  of  view  of 
computer  control.  First,  a motor  is  turned  on.  Then,  friction  an/or 
displacement  is  measured  while  two  or  more  specimens  rub  against  each 
other.  Finally,  after  some  number  of  revolutions  or  seconds,  the  motor  is 
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turned  off.  The  computer  can  then  analyze  the  data  or  run  another  test. 
If  the  interface  to  the  wear  test  machine  is  standardized,  then  the  same 
software  can  run  other  machines. 

The  interface  we  are  using  in  this  system  consists  of  three  analog 
voltage  measurement  lines,  one  digital  output  line,  and  one  digital  input 
line.  The  first  analog  line  measures  the  friction  force.  The  second  is 
optional  and  measures  displacement.  The  third  serves  two  functions.  Each 
tester  provides  a different  non-zero  DC  voltage  on  this  line.  This  both 
identifies  the  tester  and  informs  the  computer  that  the  tester  is  turned 
on.  The  digital  output  line  controls  the  motor,  turning  it  on  and  off. 
The  digital  input  line  enables  the  computer  to  know  when  each  event  occurs. 
If  the  computer  is  to  "log"  a value  every  revolution,  then  the  tester  must 
toggle  that  line  (change  its  state  from  zero  to  one  or  one  to  zero)  every 
revolution.  This  could  be  done  with  an  optical  or  magnetic  sensor  on  the 
motor  shaft  and  a divide-by- two  counter.  If  time  is  to  be  used,  the  tester 
might  toggle  that  line  every  10  seconds  using  a timer  circuit. 


USING  THE  PROGRAM 

When  running  the  program  it  first  "introduces"  itself  with  a few  help 
screens.  Next,  the  user  enters  which  tester  will  be  used.  The  DACU  itself 
is  checked.  The  appropriate  voltage  line  is  checked  to  insure  that  the 
tester  is  turned  on  and  returning  the  proper  voltage.  The  DACU  is 
initialized. 

Scaling  factors  for  the  tester  are  then  displayed.  These  factors 

scale  voltage  to  friction  force,  voltage  to  displacement,  and  events  to  the 
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correct  units. 


Note  that  when  the  factors  are  later  printed  out,  the 


friction  force  factors  will  have  been  divided  by  the  applied  load.  This 
makes  the  output  a coefficient  of  friction  instead  of  a friction  force. 
The  coefficient  will  be  displayed,  printed,  and  saved  in  the  disk  file. 

The  disk  drive  and  file  name  to  ultimately  store  the  data  in  are  now 
requested.  The  disk  is  checked  for  potential  errors,  such  as  a duplicate 
or  invalid  file  name.  This  requires  the  Viper  board  to  perform  DOS 
commands.  The  screen  will  (unfortunately)  go  blank  while  in  DOS  but  return 
when  back  in  the  HP  mode.  The  applied  load  is  now  entered. 

For  each  of  the  measured  parameters;  events,  friction,  and/or 
displacement,  the  program  will  now  request  upper  limit  values.  If  test 
termination  is  not  desired  on  a given  parameter,  simply  enter  an  extremely 
high  number.  For  example,  the  user  is  prompted  "terminate  test  after  ? 
distance  in  meters”.  If  the  slider  is  to  have  slid  50  meters  before 
stopping,  then  enter  50.  When  prompted  "terminate  test  after  ? friction  in 
coef.",  the  user  could  enter  something  like  9999.  Since  the  friction 
coefficient  would  never  reach  this  value,  the  test  should  never  terminate 
for  this  reason.  Suppose  the  friction  coefficient  during  the  test  was 
known  to  keep  increasing  from  0.2  to  0.7  and  the  user  wanted  to  study  the 
changes  in  the  surfaces  as  a function  of  how  far  along  in  this  process  the 
system  was.  The  user  could  perform,  say,  five  wear  tests.  One  wear  test 
would  terminate  at  friction  coefficient  0.3.  Another  test  would  terminate 
at  friction  coefficient  0.4.  The  others  would  terminate  at  0.5,  0.6,  and 
0.7.  These  five  sets  of  samples  could  then  be  examined  and  compared. 
Another  use  for  the  terminate  function  is  to  protect  the  equipment.  If  the 
load  cell  measuring  friction,  for  example,  could  be  damaged  if  the  force 
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went  over  some  level,  then  the  appropriate  terminate  value  for  the  friction 
coefficient  would  stop  the  test  if  the  friction  became  to  high. 

For  each  of  the  measured  parameters,  the  user  is  next  asked  to  enter 
the  full  scale  value  for  the  screen  graph  which  will  appear  during  the  test 
run.  The  defaults  are  the  values  entered  for  test  termination,  which  may 
or  may  not  be  the  best  values  for  the  graph.  If  the  test  is  to  terminate 
after  10  meters,  then  10  meters  full  scale  on  the  X axis  makes  sense.  If 
the  test  is  to  terminate  on  a friction  coefficient  of  2.5  in  order  to 
protect  the  load  cell,  but  the  friction  is  only  expected  to  reach  0.2,  then 
something  like  0.5  full  scale  for  the  friction  coefficient  is  more 
reasonable . 

The  user  is  next  asked  various  questions  which  are  simply  text  to  the 
computer.  They  are  put  in  both  the  disk  file  and  the  printout  to  document 
the  test  but  the  program  never  actually  uses  the  information.  This 
includes  items  such  as  the  specimen  materials,  lubrication,  and  relative 
humidity.  Something  must  be  entered  for  each  question.  If  the  answer  is 
not  known,  then  enter  a "?"  or  some  other  s3rmbol  to  signify  that  fact. 

Next,  the  user  is  asked  whether  or  not  a printout  during  the  test  is 
desired.  If  one  is  desired,  then  the  user  is  asked  "Print  out  1 of  every 
how  many  lines  of  data?".  For  example,  if  a two  is  entered,  then  one  of 
every  two  lines  will  be  printed  out.  This  only  effects  the  printout  and 
has  no  effect  on  the  graph  or  the  disk  file.  The  purpose  of  this  is  to 
keep  the  printed  record  down  to  a manageable  size.  The  default  is 
calculated  to  give  three  (8  1/2"  by  11")  pages. 

A zero  level  will  now  be  set  for  the  friction  and/or  displacement 
signals.  First,  the  system  will  repeatedly  monitor  the  friction  voltage 
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and  display  an  average  of  the  last  10  readings.  When  a key  is  pressed  the 
last  average  displayed  will  be  used  as  the  friction  coefficient  zero  level. 
If  displacement  is  to  be  monitored,  then  the  same  is  done  for  displacement. 
This  allows  the  user  to  establish  an  appropriate  zero  level  before  the 
test . 

Next,  a temporary  disk  file  for  storing  the  data  is  created.  This  is 
discussed  next  in  the  data  format  section.  If  a printout  was  requested, 
the  header  for  that  printout  is  printed.  The  axes  for  the  screen  plot  are 
then  displayed.  Upon  pressing  the  return  key,  the  test  will  now  begin. 

While  the  test  is  running  the  function  keys  are  defined  by  the 
program.  Function  key  F8  will  terminate  the  test  and  save  the  data  on  the 
disk  when  pressed  TWICE  IN  SUCCESSION.  Thus,  the  user  can  terminate  the 
test  early  if  required.  Function  key  FI  increases  the  full  scale  range  for 
the  friction  plot.  Function  key  F2  decreases  it.  If  displacement  is  being 
monitored,  then  function  key  F3  increases  and  function  key  F4  decreases 
its'  full  scale.  These  effect  the  screen  plot  only  and  have  no  effect  on 
the  printout  or  the  disk  file.  Note  that  the  screen  plot  emulates  a strip 
chart  recorder.  When  the  scale  is  changed,  the  data  already  drawn  does  not 
change,  only  the  data  to  be  drawn.  Since  the  data  are  stored  on  disk  and 
can  be  replotted  later,  there  is  no  reason  to  have  the  computer  spending 
time  redrawing  the  entire  screen  plot. 

The  number  displayed  near  the  lower  left  hand  side  of  the  screen  is 
the  number  of  readings  averaged  together  to  make  one  data  point.  This  is 
discussed  more  in  the  disk  file  format  section  next. 

When  the  test  is  done,  the  motor  shuts  off.  The  printout  finishes 
with  a screen  dump  of  the  screen  plot.  The  data  are  then  put  on  the  disk. 
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If  there  is  a problem  with  the  disk,  then  the  user  can  enter  another  drive 
and  file  name  to  try.  The  program  then  ends. 


DISK  FILE  FORMAT 


If  only  friction  is  to  be  monitored,  then  each  data  point  represents 
the  average  of  the  number  of  readings  the  system  acquires  in  one  event, 
i.e.,  one  per  event.  If  both  friction  and  displacement  are  monitored,  then 
friction  is  monitored  for  one  event  and  displacement  is  monitored  in  the 
next  event.  This  results  in  one  data  value  for  each  for  every  two  events. 

There  are  two  main  sections  to  the  disk  file.  The  first  is  referred 
to  as  a "header"  and  contains  information  such  as  the  date  of  the  test,  the 
test  materials,  etc.  The  second  section  is  the  column(s)  of  data.  The 
first  line  of  the  header  is  the  ntimber  of  lines  of  header  information.  The 
first  line  of  the  data  section  is  the  number  of  columns  of  data.  The 
second  line  of  the  data  section  is  the  column  label(s). 

The  disk  file  is  an  ASCII  type  file  which  can  be  loaded  into  LOTUS  1- 
2-3  by  using  the  "/  File  Import  Numbers"  command.  The  data  will  be  placed 
wherever  the  curser  on  the  spreadsheet  is  located.  More  than  one  file  can 
be  imported  onto  the  same  spreadsheet  by  importing  the  first  file,  moving 
the  cursor  to  a new  area,  and  then  importing  the  next  file.  The  sliding 
distance  is  not  included  in  the  file  to  save  disk  space  since  that  can 
easily  be  calculated  by  1-2-3  using  the  information  in  the  header.  The  end 
of  the  file  name,  the  "extension",  should  be  ".PRN"  for  1-2-3  to  read  it. 
With  a properly  set  up  spreadsheet,  many  operations  can  be  performed  on  the 
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data  such  as  high  and  low  pass  filtering,  moving  averages  and  standard 
deviations,  and  plotting  multiple  tests  on  one  graph. 

If  a test  was  long  with  many  points,  then  the  user  may  acquire  a very 
large  amount  of  data.  This  may  be  required  if  high  resolution  is  needed  to 
accurately  capture  the  shapes  of  transients.  If  many  tests  are  placed  on 
the  same  spreadsheet,  however,  the  computer  may  simply  run  out  of  memory. 
The  program  in  appendix  II  is  designed  to  help  get  around  this  problem. 
Written  in  Quick  Basic,  it  can  be  run  on  any  IBM.  It  is  meant  to  be  a 
"preprocessor"  program,  that  is,  to  get  the  data  ready  for  further 
processing.  The  preprocessor  asks  the  user  for  the  drive  and  file  name  of 
the  data,  the  number  of  rows  to  average,  and  the  drive  and  file  name  for 
the  new  "compacted"  file.  The  preprocessor  then  reads  in  the  original  data 
file  and  creates  a new  data  file.  If  the  user  entered  in  10  rows  to 
average,  then  each  row  of  data  in  the  new  file  will  be  the  average  of  10 
rows  in  the  old  file. 


FUTURE  EXPANSION 


Many  of  the  variables  used  in  this  program  are  in  array  form.  This 
allows  for  easy  expansion  to  monitor  more  parameters  should  that  be 
required.  An  earlier  version  of  this  program  had  a function  key  that  would 
allow  the  user  to  pause  and  re-start  the  test  when  ever  desired.  Some 
users  were  afraid  of  accidental  misuse  of  this  key  and  so  it  was  removed. 
A future  version  might  not  only  reinstate  this  capability,  but 
automatically  document  its'  use  on  the  disk  file  and  the  printout. 


10 


During  the  test  the  data  is  stored  in  a "RAM  disk  drive".  This  acts 
like  a normal  HP  disk  file  only  it  is  stored  in  memory  instead  of  a floppy 
disk.  In  the  event  that  the  program  itself  "crashed"  before  saving  the 
data,  the  user  could  use  the  COPY  command  to  do  so.  With  only  a few 
changes  in  the  software,  a floppy  or  hard  drive  could  be  used  for  storage 
during  the  actual  test  instead.  While  this  is  slower  than  using  memory,  if 
there  should  be  a power  failure  during  a test  the  data  would  not  be  lost. 
This  could  be  very  useful  for  tests  which  are  longer  than  a few  hours.  A 
future  version  might  give  the  user  the  option  to  use  either  the  RAM, 
floppy,  or  hard  drive. 
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APPENDIX  I 


- WEAR  TEST  PROGRAM 
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*****  WEAR  TEST,  VERSION  1,  ERIC  P WHITENTON,  NIST,  FEB  1989  ***** 


*****  INITIAL  SETUP  ***** 


!ALL  ARRAYS  START  AT  ELEMENT  0,  THOUGH  THE  O’TH  ELEMENT  MAY  NOT  ALWAYS  BE  USED 
OPTION  BASE  0 
! PRINTER  IS  THE  SCREEN 
PRINTER  IS  1 
! CLEAR  THE  SCREEN 

DISP  "SETTING  UP  SCREEN,  PLEASE  WAIT” 

GCLEAR 
CLEAR  SCREEN 
DISP 

! LOGICAL  CONSTANTS 
COM  /Logical/  INTEGER  True, False 
False=0 

True=NOT  False 
! ADDRESS  OF  HPIB 
INTEGER  Buss 
Buss=7 

! ADDRESS  OF  DATA  ACK  AND  CONTROL  DEVICE  ON  HPIB 
INTEGER  Dev 
Dev=709 

! PRINT  OUT  FLAG,  A LOGICAL  VARIABLE,  USE  PRINTOUT  DEVICE  IF  TRUE 
INTEGER  Printout_flag 
! DEVICE  TO  PRINT  OUT  TO 
COM  /Print_dev/  INTEGER  Printout_dev 
Prlntout_dev=26 

!HOW  OFTEN  TO  PRINT  OUT  THE  DATA 
INTEGER  Every_other 
! EXPLAIN  HOW  PROGRAM  WORKS 
Explain_routine 
!USED  TO  LABEL  PLOT 
ALLOCATE  Label$[50] 

!DISK  OUTPUT  STRING 
ALLOCATE  Dsk_line$ [255] 

[PRINTER  OUTPUT  STRING 
ALLOCATE  Prt_line$ [255] 

[PROMPT  STRING 
ALLOCATE  Prompts [100] 

[REPLY  TO  INPUT  REQUEST 
ALLOCATE  Reply$[100] 

REAL  Reply 
[LOGICAL  VARIABLES 
INTEGER  Done, Exists 
[COUNTER 

INTEGER  Counter 

[NUMBER  OF  RECORDS  IN  HP  FILES 
INTEGER  Hp_fiie_size 
Hp_fiie_size=1500 
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!RAM  DRIVE  TO  TEMPORALLY  SAVE  DATA  ON  DURING  TEST 
ALLOCATE  Hp_ram_drive$[20] 

Hp_ram_drive$=" ; MEMORY, 0" 

! DRIVE  TO  TEMPORALLY  SAVE  DATA  ON  AT  END  OF  TEST 
ALLOCATE  Temp_hp_drive$ [20] ,Temp_dos_drive$[20] 

TeiDp_hp_drive$="  ; , 1500 , 0" 

Temp_dos_drive$="C ; \HPW\ " 

!NAME  OF  FILE  TO  TEMPORALLY  SAVE  DATA  ON  DURING  AND  AT  END  OF  TEST 
ALLOCATE  Temp_hp_file$[20] , Temp_dos_file$ [20] 
Temp_hp_file$=''TMP_HP" 

Temp_dos_file$="TMP_DOS” 

[DRIVE  TO  ULTIMATELY  SAVE  TRACES  ON 
ALLOCATE  Dos_drive$ [20 ] 

[FILENAME  OF  FILE  TO  ULTIMATELY  SAVE  TRACES  IN 
ALLOCATE  Dos_file$ [ 12] 

[LOGICAL  VARIABLE,  TELLS  WHEN  DONE  TEST 
INTEGER  Done_test 

[LOGICAL  VARIABLE,  TELLS  IF  ERROR  HAS  OCCURRED 
INTEGER  Err_fiag 
[CHANNEL  COUNTER 
INTEGER  Channel 

[REASON  FOR  ENDING  TEST  OR  TERMINATING  PROGRAM 
ALLOCATE  Reason$[50] 

[NUMBER  OF  CHANNELS  TO  RECORD 
INTEGER  Nchanneis 
[TYPE  OF  TEST 

ALLOCATE  Type_of_test$ [ 50 ] 

CLEAR  SCREEN 

PRINT  "SELECT  TEST  TO  RUN" 

PRINT  " (1)  for  crossed  cylinder  test" 

PRINT  " (2)  for  block  on  ring  test" 

PRINT  " (3)  for  Controlled  Atmosphere  Trobometer  {CAT}" 
Prompt$="l,2  OR  3" 

Enter_value ( Prompts , Reply ,1,3, True ) 

SELECT  Reply 
CASE  1 

Type_of_test$="CROSSED  CYLINDERS" 

Nchannels=2 
Done=True 
CASE  2 

Type_of_test$="BLOCK  ON  RING" 

Nchannels=l 
Done=True 
CASE  3 
Err_beep 

End_program("CAT  NOT  YET  FULLY  SUPPORTED  IN  SOFTWARE") 

END  SELECT 
[CYCLE  COUNTERS 

INTEGER  Cycle_count,01d_cycle_count 
[TELLS  Cycle_counter  WHEN  TO  INCRAMENT 
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INTEGER  Cycle_bit,01d_cycle_bit 

! TOTAL  READINGS  DURING  THE  TEST,  USED  TO  COMPUTE  AVERAGE  READINGS/CYCLE 
REAL  Sum_readings 
IFOR  READING  VOLTAGES 


INTEGER  Nreadings 
REAL  Total, Voltage 

lEACH  TESTER  HAS  CORRESPONDING  CHANNELS  IN  DATA  LOGGER  DEVICE 
ALLOCATE  Channel_nuinber$ (Nchannels ) [2] 

ALLOCATE  Channel_name$ (Nchannels ) [10] 

ALL(XATE  Channel_units$( Nchannels ) [ 10] 

ALLOCATE  Motor$[2] 

ALLOCATE  Test_volts$[2] 

REAL  Min_test_volts ,Max_test_volts 
! Channel_nuinber$(0)  NOT  USED,  USE  MotorS  INSTEAD 
Channel_naine$(0  )="Distance" 

Channel_units$(0 )="meters" 

SELECT  Type_of_test$ 

CASE  "CROSSED  CYLINDERS" 


Channel  number$(l)="2"  ! FRICTION 


(3hannel_nan)e$  ( 1 )="Fr  iction" 


Channel_units$( l)="coef" 
Channel_number$(2)="3"  I DISPLACEMENT 


C3iannel_nan)e$  ( 2 )="Disp" 
Channel  units$(2)="um" 


Motor$="24" 


Test_volts$="4" 
Min_t  e s t_vo It s= 1 1 
Max  test  volts=13 


I WHEN  TALKED  TO,  MOTOR  ON /OFF  BIT 
! WHEN  LISTENED  TO,  MOTOR  REVOLUTION  BIT 
! CHANNEL  WITH  TEST  VOLTAGE 
I MIN  VOLTAGE  TO  ACCEPT  AS  VALID  TEST  V 
! MAX  VOLTAGE  TO  ACCEPT  AS  VALID  TEST  V 


CASE  "BLOCK  ON  RING" 


Channel_number$( 1)="5"  ! FRICTION 
Channel_name$( l)="Friction" 
Channel_units$ ( 1 )="coef " 


Motor$="25 


Test_volts$="7" 
Min_test_volts=-ll 
Max  test  volts=-9 


I WHEN  TALKED  TO,  MOTOR  ON/OFF  BIT 
I WHEN  LISTENED  TO,  MOTOR  REVOLUTION  BIT 
! CHANNEL  WITH  TEST  VOLTAGE 
I MIN  VOLTAGE  TO  ACCEPT  AS  VALID  TEST  V 
! MAX  VOLTAGE  TO  ACCEPT  AS  VALID  TEST  V 


CASE  ELSE 


Err_beep 

DISP  "TESTER  TYPE  NOT  FULLY  SUPPORTED" 
STOP 

END  SELECT 

I CALIBRATION  CONSTANTS  Y=A0+A1*X 
ALLOCATE  REAL  AO(Nchannels) ,Al(Nchannels) 
ALLCX:aTE  Cal_date$[20] 

SELECT  Type_of_test$  ! SET  DEFAULT  VALUES 
CASE  "CROSSED  CYLINDERS" 

Cal_date$="DEC  2 1988" 

A0(0)=0 
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Al(0)=.0399 

!A0(1)  SET  AT  BEGINNING  OF  TEST 
Al(l)=-1972 

!A0(2)  SET  AT  BEGINNING  OF  TEST 
Al(2)=630 

CASE  "BLOCK  ON  RING" 

Cal_date$="MARCH  3,  1989" 

A0(0)=0 
A1(0)=. 10972 

!A0(1)  SET  AT  BEGINNING  OF  TEST 
Al(l)=-93.4459 
CASE  ELSE 
Err_beep 

DISP  "TESTER  TYPE  NOT  FULLY  SUPPORTED" 

STOP 

END  SELECT 

! VALUE  OF  DATA  TO  CAUSE  TERMINATION  OF  TEST 
ALLOCATE  REAL  Terminate(Nchannels ) 

[FULL  SCALE  VALUE  FOR  PLOTTING 
ALLOCATE  REAL  Piot_fuil_scaie (Nchanneis ) 

! OFFSET  FOR  PLOTTING  (0  TO  1) 

ALLOCATE  REAL  Plot_offset (Nchanneis ) 

Piot_of f set ( 1 )=0 
!TYPE  OF  LINE  USED  TO  DRAW  LABEL 
ALLOCATE  Label_type(Nchannels) 

Label_type ( 1 )=1 

!TYPE  OF  LINE  USED  TO  DRAW  CURVE 
ALLOCATE  Curve_type(Nchannels ) 

Curve_type ( 1 ) = 1 

! PLOTTING  FOR  SECOND  CHANNEL  IF  EXISTS 
IF  Nchanneis>l  THEN 
Piot_offset(2)=. 5 
Labei_type(2)=4 
Curve_type ( 2 ) =2 
END  IF 

iSAVES  LAST  PLOTTED  POINTS  (Last_plotted(0)=-1  MEANS  "PEN  UP") 
ALLOCATE  REAL  Last_plotted(Nchannels ) 

Last_piotted(0 )=-l 
!USED  IN  PLOTTING 
REAL  Current_x 

iUSED  FOR  THE  DOUBLE  KEY  PRESS  ACTION  OF  SOME  FUNCTION  KEYS 
INTEGER  Last_key 
Last_key=0 

! SAVES  THE  STARTING  TIME 
REAL  Start_time 
!CO^WENTS  TO  BE  SAVED  ON  DISK 
INTEGER  Ncoranents 
Nconments=5 

ALLOCATE  ConmentsSCNcomments) [80] 

ALLOCATE  Conment_prompts$(Ncornnents) [80] 
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Coninent_prompts$( 1)="SPECIMEN  MATERIALS" 

Coninent_prompts$ ( 2 )="LUBRICATION” 

Coninent_prompts$(3)="RELATIVE  HUMIDITY  (Z)" 

Coninent_prompts$(4 )="SPEED  (RPM)" 

Coinnient_prompts$(5)="OTHER  CO^flENTS" 

*****  SETUP  DEVICE  & MAKE  SURE  CORRECT  CONNECTIONS  TO  TESTER  ***** 

DISP  "SETTING  UP  DEVICE  & CHECKING  CONNECTIONS,  PLEASE  WAIT" 

Err_fiag=True 
ON  ERROR  GOTO  2140 
ON  TIMEOUT  Buss, 4 GOTO  2140 
! RESET  DEVICE 
OUTPUT  Dev;"RS" 

!TEST  FOR  PROPER  TESTER 
OUTPUT  Dev:"DCV"&Test_volts$ 

ENTER  Dev;Voltage 

OUTPUT  Dev; "OPN"&Test_volts$ 

IF  (Voltage<Min_test_volts)  OR  (Voitage>Max_test_voits ) THEN 
Err_beep 

End_prograin("’"&Type_of_test$&"’  MACHINE  NOT  RETURNING  PROPER  VOLTAGE") 
END  IF 

!MISC  DEVICE  CODES 
OUTPUT  Dev;"Zl"  ! AUTO  ZERO 
OUTPUT  Dev:"RAl"  ! AUTO  RANGE 
OUTPUT  Dev; "FI"  ! FUNCTION  1 (DC  VOLTS) 

OUTPUT  Dev;"N3"  ! 3 1/2  DIGITS 
Err_f lag=False 
OFF  TIMEOUT 
OFF  ERROR 
DISP 

IF  Err_fiag  THEN 
Err_beep 

End_program( "DEVICE  ' "&VAL$(Dev)&" ’ NOT  RESPONDING  CORRECTLY") 

END  IF 

! 

! *****  SHOW  SCALING  FACTORS  ***** 

! 

CLEAR  SCREEN 

FOR  Channei=0  TO  Nchanneis 

PRINT  "SCALING  FACTOR  FOR  " ;Channel_naine$(Cheuinel) ; " IS  " ; VAL$(Al(Channel) ) 
NEXT  Channel 
PRINT 

PRINT  "LAST  CALIBRATED  ";Cal_date$ 

PRINT 

PRINT 

PRINT  "ENTER" 

PRINT  " (1)  THESE  ARE  OK,  CONTINUE  WITH  TEST" 

PRINT  " (2)  THESE  ARE  NOT  OK,  END  PROGRAM" 

Enter_vaiue ( " 1 or  2" , Reply, 1,2, True, 1) 
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2250  IF  Reply=2  THEN 

2255  End_program( "CALIBRATION  CONSTANTS  NEED  TO  BE  UPDATED") 

2260  END  IF 
2265  ! 

2270  ! *****  ENTER  INITIAL  PARAMETERS  ***** 

2275  ! 

2280  CLEAR  SCREEN 

2285  Enter_dos_drive (Dos_drive$ , F alse , "B : " .True ) 

2290  Enter_dos_fiie(Dos_drive$,Dos_f ileS) 

2295  CLEAR  SCREEN 

2300  Enter_value( "applied  load  in  newtons" ,Applied_load,MINREAL,MAXREAL, False) 

2305  Al(l)=Al(l)/Applied_load  ! MAKE  COEF  INSTEAD  OF  FORCE 

2310  CLEAR  SCREEN 

2315  FOR  Channel=0  TO  Nchannels 

2320  Prompt$="terniinate  test  after  ? "&Channel_name$(Channel)&"  in  "&Channel_units$ (Channel) 

2325  Enter_value (Prompts , Terminate (Channel ) , 0 .MAXREAL , F alse ) 

2330  NEXT  Channel 
2335  CLEAR  SCREEN 
23A0  FOR  Channel=0  TO  Nchannels 

2345  Enter_value("plot  full  scale  for  "fitChannel_name$(Channel)&"  in  "ficChannel_units$ (Channel) , Plot_full_scale(Channe 
1) , 0 .MAXREAL, False, Terminate (Channel) ) 

2350  NEXT  Channel 
2355  CLEAR  SCREEN 
2360  FOR  Counter=l  TO  Ncomnents 

2365  Enter_string (Coninent_prompts$ (Counter ) , ComnientsS (Counter ) .False ) 

2370  NEXT  Counter 
2375  CLEAR  SCREEN 

2380  PRINT  "DO  YOU  WANT  A PRINTOUT  ON  THE  PRINTER?" 

2385  PRINT  " (1)  YES" 

2390  PRINT  " (2)  NO" 

2395  Enter_value("l  OR  2" .Reply , l,2,True , 1) 

2400  SELECT  Reply 

2405  CASE  1 

2410  Printout_flag=True 

2415  PRINT 

2420  PRINT  "PRINT  OUT  1 OF  EVERY  HOW  MANY  LINES  OF  DATA?" 

2425  Enter_value("A  NUMBER" .Reply ,2, 5000 .True, MAX(2, 5* INT( (2 . 5+Terminate(0 ) /Al(0)/Nchannels/120) /5) , 0 ) ) 

2430  Every _other=Reply*Nchannels 

2435  CASE  2 

2440  Printout_flag=False 

2445  END  SELECT 
2450  ! 

2455  ! *****  MEASURE  ZEROS  ***** 

2460  ! 

2465  CLEAR  SCREEN 

2470  PRINT  "MEASURING  ZERO  FOR  PARAMETER  SHOWN  BELOW" 

2475  PRINT 

2480  PRINT  "WHEN  VALUE  IS  ACCEPTABLE,  PRESS  ANY  KEY" 

2485  FOR  Channel=l  TO  Nchannels 
2490  LOOP 

2495  OUTPUT  Dev; "CLS"&Channel_number$(Channel) 
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Total=0 

FOR  Counter=l  TO  10 
OUTPUT  Dev;"T2" 

ENTER  Dev:Voitage 
Totai=Total+Voitage 
NEXT  Counter 
Voitage=Totai/ 10 

DISP  "VOLTAGE  FOR  "&Channel_name$ (Channel )&"  = "&VALS (Voltage) 

A0(Channel)=-Al(Channel)*Voltage 
ON  KBD  ALL,1  GOTO  Done_zeroing 
END  LOOP 
Done_zeroing : ! 

OFF  KBD 
Key_chirp 
NEXT  Channel 
CLEAR  SCREEN 

I 

! *****  OPEN  DISK  FILE,  SETUP  AUTO  TERMINATE  IF  RAM  DISK  BECOMES  FULL,  & SAVE  PARAMETERS  ***** 

I 

DISP  "OPENING  TEMP  RAM  DISK  FILE,  PLEASE  WAIT" 

INITIALIZE  Hp_ram_drive$,Hp_file_size+100 

CREATE  ASCII  Temp_hp_file$SiHp_ram_drive$ , Hp_file_size 

ASSIGN  @File  TO  Temp_hp_f ile$&Ep_ram_drive$ 

ON  END  SFile  GOSUB  Ram_drive_full 
OUTPUT  @File ; Nconments+4 

OUTPUT  @F i le ; CHR$ (34)&"DATE"&CHR$(34)&"  "&CHR$(34) &DATE$ ( T IMED ATE ) &CHR$ ( 3 4 ) 

OUTPUT  @File;CHR$(34)&"DISTANCE  PER  DATA  SET  ( "&Channel_units$(0 )&" ) ”&CHR$(34 )&"  "&VAL$(A1 ( 0 )*Nchannels ) 
OUTPUT  @File;CHR$(34)&"TYPE  OF  TEST"&CHRS(34 )&"  "&CHR$(34 )&Type_of_test$fiX:HR$ (34 ) 

OUTPUT  §File:CHR$( 34 )&" APPLIED  LOAD  (N) "&CHR$(34 )&"  "&VAL$(Applied_load) 

FOR  Counter=l  TO  Ncotrtnents 

OUTPUT  §File  ;CHR$(34  )&Coninent_prompts$ (Counter )fitCHR$( 34  )&"  "&CHR$  (34  )&Comnients$(Counter )&CHR$  (34 ) 

NEXT  Counter 

OUTPUT  eFile;Nchannels 

Dsk_line$="" 

FOR  Channel=l  TO  Nchannels 

Dsk_line$=Dsk_line$&CHR$ ( 34 )&Channel_naine$ (Channel )&" ("&Channel_units$(Channel)&" )"&CHR$(34 ) 

IF  ChanneloNchannels  THEN  Dsk_line$=Dsk_line$&"  " 

NEXT  Channel 

OUTPUT  ®File;Dsk_line$ 

DISP 

I 

! *****  HEADER  OF  PRINTOUT  ***** 

I 

IF  Printout_flag  THEN 
Done=False 
WHILE  NOT  Done 

DISP  "PRINTING  HEADER" 

Err_flag=True 

ON  ERROR  GOTO  2915 

ON  TIMEOUT  Printout_dev,2  GOTO  2915 
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OUTPUT  Printout_dev;CHR$(27) :"&11L";  ! SKIP  PERFORATION 
OUTPUT  Printout_dev:CHR$(27);"&s0C";  ! WRAP  AROUND  ON 
OUTPUT  Printout_dev; "DATE:  DATES (TIMEDATE ) 

OUTPUT  Printout_dev; "CYCLES  PER  DATA  SET:  " ; VALS (Nchanneis ) 

OUTPUT  Printout_dev; "1  OF  EVERY  " ; VAL$(Every_other/Nchannels ) ; " DATA  SETS  PRINTED  OUT" 
OUTPUT  Printout_dev;"TYPE  OF  TEST:  " ; Type_of_test$ 

OUTPUT  Printout_dev; "APPLIED  LOAD  (N):  " ;VAL$(Applied_load) 

OUTPUT  Printout_dev; "ULTIMATE  DISK  FILE  NAME:  " ;Dos_drive$;Dos_file$ 

FOR  Counter=l  TO  Ncoranents 

OUTPUT  Printout_dev;Coninent_prompts$(Counter ) ; " : " ;Cotnments$ (Counter) 

NEXT  Counter 

OUTPUT  Pr intout_dev ; " " 

OUTPUT  Printout_dev:FNColumn$( "CALIBRATION  FACTORS:"); 

OUTPUT  Printout_dev;FNColumn$("INTERCEPT") : 

OUTPUT  Printout_dev ;FNColumn$( "SLOPE" ) ; 

OUTPUT  Pr intout_dev ; FNCoiumnS ( "UNITS" ) 

Counter=0 

FOR  Channei=0  TO  Ncheinnels 

OUTPUT  Printout_dev;FNColunm$(Channel_name$(Channel) ) ; 

OUTPUT  Printout_dev ; FNCoiumnS (VALS (AO (Channel ) ) ) ; 

OUTPUT  Printout_dev;FNCoiuinnS(VALS(Al(Channel) ) ) ; 

OUTPUT  Printout_dev;FNCoiumnS(Channel_unitsS(Channel) ) 

NEXT  Channel 

OUTPUT  Printout_dev;"LAST  CALIBRATED  ":Cai_dateS 
OUTPUT  Printout_dev; "" 

OUTPUT  Pr intout_dev ; " " 

OUTPUT  Printout_dev; FNCoiumnS ("Time(h: m: s)" ) ; 

FOR  Channei=0  TO  Nchanneis 

OUTPUT  Printout_dev;FNColumnS(Channel_nameS(Channel)&" ("6iChannel_uni tsS (Channel )&" )” ) ; 
NEXT  Channel 
OUTPUT  Printout_dev; "" 

OUTPUT  Printout_dev; "" 

Err_fiag=False 
OFF  TIMEOUT 
OFF  ERROR 
IF  Err_fiag  THEN 
Err_beep 
PRINT 

PRINT  "PRINTER  NOT  RESPONDING  PROPERLY" 

PRINT 

PRINT  "TRY  AGAIN?" 

PRINT  " (1)  YES" 

PRINT  " (2)  NO" 

Enter_vaiue ( " 1 OR  2" .Reply , 1,2, True, 2) 

SELECT  Reply 
CASE  1 
CASE  2 

Printout_fiag=False 
Done=True 
END  SELECT 
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ELSE 

Done=True 
END  IF 
END  WHILE 
DISP 
END  IF 


*****  SET  UP  PLOT  ***** 


DISP  "SETTING  UP  PLOT,  PLEASE  WAIT" 

CLEAR  SCREEN 

GRAPHICS  ON 

LINE  TYPE  1 

VIEWPORT  10,125,28,90 

WINDOW  0,1, 0,1 

GRID  .05, .05,0,0,5,5 

FRAME 

CLIP  OFF 

CSIZE  3.5, .5 

LORG  6 

FOR  Counter=0  TO  10 
MOVE  Counter /I 0,0 
LABEL  VAL$(Counter*10)&"%" 

NEXT  Counter 
LORG  8 

FOR  Counter=0  TO  10 
MOVE  0, Counter/ 10 
LABEL  VAL$(Counter*10)&"%" 

NEXT  Counter 
MOVE  0,-.l 

AREA  PEN  0 ! DEFAULT  FOR  REST  OF  TEST 
RECTANGLE  1,. 04, FILL 
LORG  6 

MOVE  .5, -.05 

LABEL  Channel_name$(0)&"  {"&VAL$(Plot_full_scaie(0) )&"  "&Channel_units$(0)&"} 
LORG  4 ! DEFAULT  FOR  REST  OF  TEST 
GOSUB  Scaling_ieibeis 
DISP 

I 

I *****  START  TEST  ***** 

; 

INPUT  "PRESS  RETURN  TO  START  TEST",Repiy$ 

FOR  Counter=l  TO  4 
BEEP  1000*Counter , . 1 
NEXT  Counter 


I *****  SEX  UP  FUNCTION  KEYS  ***** 


USER  1 KEYS 

ON  KEY  1 LABEL  Channei_name$(l)&"  '",1  GOSUB  Keyl 
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ON  KEY  2 LABEL  Channel_name$( 1)&"  v" , 1 GOSUB  Key2 
IF  Nchaimels>l  THEN 

ON  KEY  3 LABEL  " "&Channel_nainG$(2)&"  ‘",1  GOSUB  Key3 

ON  KEY  4 LABEL  " "&Channel_naine$(2)&"  v" , 1 GOSUB  Key4 

ELSE 

ON  KEY  3,1  CALL  Err_bGGp 
ON  KEY  4,1  CALL  Err_bGep 
END  IF 

ON  KEY  5,1  CALL  Err_bGep 
ON  KEY  6,1  CALL  Err_bGep 
ON  KEY  7,1  CALL  Err_bGGp 

ON  KEY  8 LABEL  "ABNORMALEND  TEST",1  GOSUB  Key8 

*****  START  ’TIMER’  ***** 

Start_ti(ne=TIMEDATE 

*****  START  CYCLE  COUNTER  & MOTOR  ***** 

DISABLE 

OUTPUT  Dev;"BIT"&Motor$ 

ENTER  Dev;Oid_cycie_bit 
Sum_readings=0 
Cycie_count=0 
Oid_cycle_count=0 
OUTPUT  DGV:"CLS”&Motor$ 

ENABLE 

I *****  RUN  test  ***** 

DISP  "TEST  RUNNING” 

Data(0)=AO(0) 

Done_test=False 
WHILE  NOT  Done_test 
Dsk_line$="" 

Prt_iine$=FNCoiumn$(TIME$(TIMEDATE-Start_time) )6iFNColunm$(VAL$(PROUND(Data(0) , -2) ) ) 
FOR  Charmei=l  TO  Nchannels 

OUTPUT  Dev; "CLS"&Channel_number$ (Channel) 

Total=0 
Nreadings=l 
OUTPUT  Dev;"T2" 

REPEAT 

Nreadings=Nreadings+l 
ENTER  Dev; Voltage 
OUTPUT  Dev;"BIT"&Motor$ 

Total=Total+Voitage 
ENTER  Dev;Cycie_bit 
OUTPUT  Dev;"T2" 

IF  Cycie_bit<>01d_cycie_bit  THEN 
Cycie_count=Cycle_count+l 
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Oid_cycie_bit=Cycle_bit 
END  IF 

UNTIL  (Cycle_count>Oid_cycle_count)  OR  Done_test 
ENTER  Dev;Voltage 
Total=Total+Voltage 
DISP  Nreadings 

Sum_readings=Sum_readings+Nreadings 

Oid_cycle_count=Cycle_count 

Data(Channel)=AO(Channel)+Al(Channei)*Total/Nreadings 
IF  Data(Channei)>=Terminate(Channel)  THEN 
IF  NOT  Done_test  THEN 

Reason$="TERMINATE  VALUE  FOR  "&Channel_name$(Cbannel)&"  EXCEEDED" 

GOSUB  Tertninate_test 
END  IF 
END  IF 

Dsk_line$=Dsk_line$&VAL$ ( DROUND ( Data (Channel ) , 6 ) ) 

IF  ChanneloNchannels  THEN  Dsk_line$=Dsk_line$&"  " 

Prt_line$=Prt_line$6iFNColumn$  < VAL$ ( PROUND ( Data (Channel) , -3 ) ) ) 

NEXT  Channel 

OUTPUT  @File:Dsk_line$ 

IF  Printout_flag  THEN 

IF  Cycle_count  MOD  Every _other=Nchannels  THEN 
Printout_flag=False 
ON  ERROR  GOTO  3635 
ON  TIMEOUT  Printout_dev,2  GOTO  3635 
OUTPUT  Printout_dev; Prt_line$ 

Printout_flag=True 
OFF  TIMEOUT 
OFF  ERROR 
END  IF 
END  IF 
DISABLE 

IF  Last_plotted(0)=-1  THEN 

FOR  Channel=0  TO  Nchannels 

Last_plotted(Channel)=Plot_off set (Channel) +Dat a (Channel ) /Plot_full_sc ale (Channel) 
NEXT  Channel 
ELSE 

Current_x=Data(0)/Plot_full_scale(0) 

FOR  Channel=l  TO  Nchannels 
PENUP 

LINE  TYPE  Curve_type (Channel) 

PLOT  Last_plotted(0) ,Last_plotted(Channel) 

Last_plotted(Channel)=Plot_off set (Channel)+Data(Channel)/Plot_full_scale (Channel) 
PLOT  Current_x,Last_plotted( Channel) 

NEXT  Channel 

Last_plotted ( 0 )=Curr ent_x 
END  IF 
ENABLE 

Data(0)=A0(0)+Al(0)*Cycle_count 
IF  Data(0)>=Terminate(0)  THEN 
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IF  NOT  Done_test  THEN 

Reason$="NORMAL  TEST  TERMINATION” 
GOSUB  Terminate_test 
END  IF 
END  IF 
END  WHILE 


*****  CLEAR  FUNCTION  KEYS  ***** 


OFF  KEY 

*****  TURN  MOTOR  OFF  ***** 


OUTPUT  Dev;"OPN"&Motor$ 


*****  FINISH  PRINTOUT  ***** 


IF  Printout_fiag  THEN 

DISP  "FINISHING  PRINTOUT" 

ON  ERROR  GOTO  3900 

ON  TIMEOUT  Priiitout_dev,2  GOTO  3900 

IF  NOT  (Cycie_count  MOD  Every_other=Nchannels ) THEN 
OUTPUT  Printout_dev; Prt_line$ 

END  IF 

OUTPUT  Pr intout_dev ; " " 

OUTPUT  Prlntout_dev;"TEST  TERMINATED  ( " ;Reason$ ; " ) " 

OUTPUT  Printout_dev;VAL$(Cycie_count) ;"  REVOLUTIONS" 

OUTPUT  Printout_dev;VAL$(PROUND(Sum_readings/Cycie_count,-l));"  READINGS  PER  CYCLE  ON  AVERAGE" 

DUMP  GRAPHICS  #Printout_dev 
OUTPUT  Printout_dev;CHR$(12) ; ! form  feed 
OFF  TIMEOUT 
OFF  ERROR 
DISP 
END  IF 

*****  FINISH  WITH  DISKING  DATA  ***** 

DISP  "MAKING  FINAL  DISK  FILE" 

GRAPHICS  OFF 

! CLOSE  RAM  DISK  DATA  FILE 
ASSIGN  ©File  TO  * 

!MAKE  SURE  OLD  INTERMEDIATE  HARD  DISK  FILES  ARE  ERASED 
ON  ERROR  GOTO  3970 

PURGE  T emp_hp_f i ie$&T  emp_hp_dr i veS 
OFF  ERROR 

Dos_shell( "DEL  "AT emp_dos_drive$&Temp_dos_file$, False, Counter ) 

!PUT  RAM  DISK  FILE  ON  TO  HARD  DISK  AND  CONVERT  TO  DOS  FILE 
COPY  Temp_hp_file$&Hp_ram_drive$  TO  Temp_hp_file$&Temp_hp_drive$ 

Dos_sheil("C: \HPW\HPWUTIL  CHECKOUT  ”&Temp_dos_drive$&"  "&Temp_hp_f ile$&"  "&Temp_dos_drive$&Temp_dos_file$, False 
.Counter) 

!PUT  DOS  FILE  ON  TO  USER  DISK,  MAKING  SURE  THAT  COPY  WENT  OK 


24 


4000  Done=Faise 

4005  WHILE  NOT  Done 

4010  Dos_shell( "COPY  ”&Temp_dos_drive$&Temp_dos_f ile$&"  "&Dos_drive$&Dos_file$ .False .Counter ) 

4015  Dos_shell("DIR  "&Dos_drive$&Dos_fiie$. False. Counter) 

4020  IF  Counter<>6  THEN 

4025  Err_beep 

4030  PRINT 

4035  PRINT  "TEMP  FILE  DID  NOT  COPY  TO  PERMINANT  DOS  FILE  PROPERLY" 

4040  Enter_dos_drive (Dos_drive$ . True . Dos_drive$ . False ) 

4045  Enter_dos_f ile(Dos_drive$ .Dos_f ile$ ) 

4050  ELSE 

4055  Done=True 

4060  END  IF 

4065  END  WHILE 
4070  CLEAR  SCREEN 

4075  GRAPHICS  ON 
4080  ! 

4085  ! *****  DONE  PROGRAM  ***** 

4090  ! 

4095  End_program(Reason$) 

4100  ! 

4105  ! 

4110  ! 

4115  ! 

4120  ! *****  SCALING  LABELS  ***** 

4125  ! 

4130  Scaling_labels : ! 

4135  DISABLE 

4140  MOVE  0.1.01 

4145  RECTANGLE  1. .05, FILL 

4150  ENABLE 

4155  FOR  Counter=l  TO  Nchannels 

4160  Label$=Channel_name$(Counter)&"  {"&VAL$(Plot_full_scale(Counter) )&"  "&Channel_units$ (Counter)*"} 

4165  DISABLE 

4170  LINE  TYPE  Label_type (Counter ) 

4175  MOVE  Counter/ (Nchannels+1) , 1 . 01 

4180  LABEL  LabelS 

4185  ENABLE 

4190  NEXT  Counter 

4195  RETURN 

4200  ! 

4205  ! *****  KEY  1 ***** 

4210  ! 

4215  Keyl: ! 

4220  Key_chirp 

4225  Plot_fuil_scaie ( 1 )=2*Piot_fuil_scaie( 1 ) 

4230  Last_plotted(0)=-1 
4235  GOSUB  Scaiing_labels 
4240  RETURN 
4245  ! 
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A250  ! *****  KEY  2 ***** 

A255  ! 

A260  Key2: ! 

A265  Key_chirp 

A270  Piot_full_scale( 1)=. 5*Plot_fuil_scale( 1) 

A275  Last_plotted(0)=-1 

A280  GOSUB  Scaling_iabels 

A285  RETURN 

A290  ! 

A295  ! *****  KEY  3 ***** 

A300  ! 

A305  Key3: ! 

A310  Key_chirp 

A3 15  Piot_fuil_scaie ( 2 )=2*PLot_fuLi_scale ( 2 ) 

A320  Last_pLotted(0)=-l 
A325  GOSUB  Scaiing_iabeis 
A330  RETURN 
A335  ! 

A3A0  ! *****  KEY  A ***** 

A3A5  ! 

A350  KeyA; ! 

A355  Key_chirp 

A360  Plot_full_scaie(2)=. 5*Piot_fuil_scale(2) 

A365  Last_plotted(0)=-1 

A370  GOSUB  Scaling_iabeis 

A375  RETURN 

A380  ! 

A385  ! *****  KEY  8 ***** 

A390  ! 

A395  Key8: ! 

A A 00  Key_chirp 

AA05  IF  Last_key<>8  THEN 

A A 10  Last_key=8 

AA15  ON  DELAY  1,1  GOSUB  Key_timer_of f 

AA20  ELSE 

AA25  Last_key=0 

A A 30  Reason$="END  TEST  KEY  PRESSED" 

AA35  GOSUB  Terminate_test 

AAAO  END  IF 
AAA5  RETURN 
AA50  ! 

AA55  ! *****  KEY  TIMER  FOR  SECOND  KEY  STROKE  ***** 
AA60  ! 

AA65  Key_timer_off : ! 

AA70  Last_key=0 
AA75  RETURN 
AA80  ! 

AA85  ! *****  RAM  DRIVE  FULL  ***** 

AA90  ! 

AA95  Ram  drive  full:! 


A500  OFF  KEY 

A505  IF  Done_test=Faise  THEN 
4510  Reason$="MEMORY  FULL" 

4515  GOSUB  Terminate_test 

4520  END  IF 
4525  RETURN 
4530  ! 

4535  ! *****  TERMINATE  TEST  ***** 

4540  ! 

4545  Tenninate_test: ! 

4550  OFF  KEY 

4555  Done_test=True 

4560  DISP  "TEST  OVER  ( "&Reason$&" ) " 

4565  BEEP  2500,. 1 

4570  BEEP  3000,. 1 

4575  BEEP  2500,. 1 

4580  BEEP  3000,. 1 

4585  RETURN 

4590  ! 

4595  ! 

4600  END 
4605  ! 

4610  ! 

4615  ! 

4620  SUB  Err_beep 
4625  BEEP  2000,. 07 

4630  BEEP  1500,. 07 

4635  BEEP  2000,. 07 

4640  SUBEND 
4645  ! 

4650  ! 

4655  SUB  Enter_vaiue ( Prompts ,Vaiue_returned, Min_aliowed, Max_ailowed , INTEGER  Must_be_integer , OPTIONAL  Default) 
4660  ! 

4665  COM  /Logical/  INTEGER  True, False 
4670  INTEGER  Done, Valid_number .Counter 
4675  REAL  Reply 
4680  ALLOCATE  Reply$[50] 

4685  ! 

4690  Done=False 
4695  WHILE  NOT  Done 
4700  PRINT 

4705  PRINT  "ENTER  ";Prompt$ 

4710  IF  NPAR=6  THEN  PRINT  " (DEFAULT  is  " ;VAL$ (Default) 

4715  Reply$="" 

4720  ENTER  2;Reply$ 

4725  Key_chirp 

4730  Reply$=TRIM$(Reply$) 

4735  IF  Reply$=""  THEN 

4740  IF  NPAR=6  THEN 

4745  Value  retumed=Def ault 
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Done=True 

ELSE 

Err_beep 

PRINT  "NO  VALUE  WAS  ENTERED" 

END  IF 
ELSE 

VaIid_number=False 
ON  ERROR  GOTO  4870 
Counter=32 
WHILE  Counter<=126 

IF  POS (Reply$,CHR$ (Counter ))<>0  THEN  CAUSE  ERROR  8 
SELECT  Counter 
CASE  42 

Counter=44 
CASE  44 

Counter=47 
CASE  47 

Counter=58 
CASE  ELSE 

Counter=Counter+l 
END  SELECT 
END  WHILE 
Repiy=VAL(Repiy$) 

Valid_nuniber=True 
OFF  ERROR 

IF  NOT  Valid_number  THEN 
Err_beep 

PRINT  "”';Reply$:"’  IS  NOT  A VALID  NUMBER" 

ELSE 

IF  (Must_be_integer=True)  AND  (ReplyoINT (Reply ) ) THEN 
Err_beep 

PRINT  "’":VAL$ (Reply);’”  IS  NOT  AN  INTEGER" 

ELSE 

IF  (Reply>Max_ailowed)  OR  (RepIy<Min_aiiowed)  THEN 
Err_beep 

PRINT  "”’;VAL$(Repiy) IS  NOT  WITHIN  THE  RANGE  OF  " :VAL$(Min_aiiowed) ; " TO  " ; VAL$ (Max_aliowed 
) 

ELSE 

Value_retumed=Repiy 
Done=True 
END  IF 
END  IF 
END  IF 
END  IF 
END  WHILE 

PRINT  Value_retumed 
SUBEND 
! 

I 

SUB  Enter_string ( Prompts , String_retumed$ , INTEGER  Capatiiize .OPTIONAL  DefaultS) 
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COM  /Logical/  INTEGER  True, False 
INTEGER  Done 
ALLOCATE  Reply$t200] 

! 

Done=False 
WHILE  NOT  Done 
PRINT 

PRINT  "ENTER  Prompts 

PRINT  "(”  ;VAL${M/\XLEN(String_retumed$) ) : " is  the  maximum  number  of  characters)" 

IF  NPAR=4  THEN  PRINT  " (DEFAULT  is  ’ " :Def aultS ; " ’ ) " 

Repiy$="" 

ENTER  2;Repiy$ 

Key_chirp 

Repiy$=TRIM$(Reply$) 

IF  Repiy$=""  THEN 
IF  NPAR=4  THEN 

String_retumed$=Defauit$ 

Done=True 

ELSE 

Err_beep 

PRINT  "NO  VALUE  WAS  ENTERED" 

END  IF 
ELSE 

IF  LEN(Repiy$)>MAXLEN(String_retumed$)  THEN 
Err_beep 

PRINT  "LINE  TO  LONG" 

ELSE 

String_retumed$=Reply$ 

Done=True 
END  IF 
END  IF 
END  WHILE 

IF  Capatilize  THEN  String_retumed$=UPC$(String_retumed$) 

PRINT  String_retumed$ 

SUBEND 

I 

I 

SUB  Enter_dos_filo(Dos_drive$,Dos_fiie$, OPTIONAL  Defaults ) 

I 

COM  /Logical/  INTEGER  True, False 
INTEGER  Done,Lines_retumed 
REAL  Choise 

t 

Dos_fileS=" " 

Done=False 
WHILE  NOT  Done 
IF  NPAR=3  THEN 

Enter_string("DOS  disk  file  name  to  ultimately  place  data  in" ,Dos_fileS,True,DefaultS) 
ELSE 

Enter_string("DOS  disk  file  name  to  ultimately  place  data  in" ,Dos_fileS,True) 
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END  IF 

IF  (POS(Dos_file$,”*")<>0)  OR  (POS(Dos_f iie$ , )<>0 ) THEN 
Err_beep 
PRINT 

PRINT  "NO  DOS  WILD  CARD  CHARACTERS  PLEASE  (’*’  OR 
ELSE 

IF  (POS(Dos_file$,".")=0)  OR  (LEN(Dos_fiie$)-POS(Dos_file$ , " . " )>3 ) OR  (POS(Dos_file$, " . ” )=LEN(Dos_file$) ) T 
HEN 

Err_beep 

PRINT 

PRINT  "'";Dos_file$;"’  DOES  NOT  CONTAIN  A VALID  DOS  EXTENSION  (TRY  ’ .PRN’ )" 

ELSE 

IF  POS(Dos_fiie$,".")<=l  THEN 
Err_beep 
PRINT 

PRINT  ’'’";Dos_fiie$;"’  IS  NOT  A VALID  DOS  FILE  NAME" 

ELSE 

Dos_sheii( "DIR  "&Dos_drive$&Dos_fiie$ .False , Lines_re turned) 

IF  Lines_retumed=0  THEN 
Err_beep 
PRINT 

PRINT  "’";Dos_file$;"’  IS  NOT  A VALID  DOS  FILE  NAME" 

ELSE 

IF  Lines_retumed=6  THEN 
Err_beep 
PRINT 

PRINT  "’";Dos_file$:"’  ALREADY  EXISTS" 

PRINT  "(1)  delete  the  old  file" 

PRINT  "(2)  enter  in  a different  file  name" 

Enter_value("l  OR  2" .Choise , 1, 2,True ,2) 

IF  Choise=l  THEN 

Dos_shell( "DEL  "&Dos_drive$6tDos_f ile$ .False , Lines_retumed ) 

Dos_shell ( "DIR  "&Dos_dr ive$&Dos_f ile$ . False . Lines_r etumed ) 

IF  Lines_retumed=6  THEN 
Err_beep 
PRINT 

PRINT  "’"&Dos_file$&"’  IS  PROTECTED  FROM  DELETION" 

ELSE 

Done=True 
END  IF 
END  IF 
ELSE 

Done=True 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
END  WHILE 
SUBEND 
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5505 

5510 

5515 

5520 

5525 

5530 

5535 

55A0 

55A5 

5550 

5555 

5560 

5565 

5570 

5575 

5580 

5585 

5590 

5595 

5600 

5605 

5610 

5615 

5620 

5625 

5630 

5635 

56A0 

56A5 

5650 

5655 

5660 

5665 

5670 

5675 

5680 

5685 

5690 

5695 

5700 

5705 

5710 

5715 

5720 

5725 

5730 

5735 

5740 

5745 


SUB  Enter_dos_drive(Dos_drive$ , INTEGER  C_drive_allowed , Defaults , INTEGER  Test_oniy) 

I 

COM  /Logical/  INTEGER  True, False 
INTEGER  Done , Lines_returned , Ask_for_drive 
REAL  Choise ,Max_choise 
ALLOCATE  Prompts [20] 

I 

Dos_driveS="” 

IF  C_drive_allowed=True  THEN 
Max_choise=3 
PromptS="l,  2,  OR  3" 

ELSE 

Max_choise=2 
PromptS="l  OR  2" 

END  IF 

SELECT  Defaults 
CASE  "A;" 

Choise=l 
CASE  "B:" 

Choise=2 
CASE  "C:\DATA\" 

Choise=3 
CASE  ELSE 
Choise=0 
END  SELECT 

Choi se=MIN( Choise, Max_choise) 

Ask_for_drive=NOT  Test_oniy 

Done=False 

WHILE  NOT  Done 

IF  Ask_for_drive  THEN 
PRINT 

PRINT  "Which  DOS  drive  is  to  be  used  for  ultimately  storing  the  data  ?" 

PRINT  "(1)  3 1/2  inch  drive  {drive  ’A:’}" 

PRINT  "(2)  5 1/4  inch  drive  {drive  ’B:’}" 

IF  C_drive_aiiowed=True  THEN  PRINT  "(3)  hard  drive  {C:\DATA\}  IN  EMERGENCIES  ONLY 
IF  Choise=0  THEN 

Enter_value  ( PromptS , Choise , 1 , Meix_choise , True ) 

ELSE 

Enter_vaiue (Prompts .Choise , 1 ,Max_choise .True .Choise ) 

END  IF 

SELECT  Choise 
CASE  1 

Dos_driveS="A: " 

CASE  2 

Dos_driveS="B ; " 

CASE  3 

Dos_drive$="C: \DATA\” 

END  SELECT 
ELSE 
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5750 

Dos_drive$=Def ault$ 

5755 

END  IF 

5760 

CLEAR  SCREEN 

5765 

Dos_sheii(  "DIR  "fiJ!)os_drive$ , True , Lines_r eturned ) 

5770 

IF  Lines_returned>=4  THEN 

5775 

Done=True 

5780 

ELSE 

5785 

Err_beep 

5790 

PRINT 

5795 

PRINT  "DRIVE  ’";Dos_drive$;"’  NOT  RESPONDING 

PROPERLY  . 

5800 

PRINT  "EITHER  THERE  IS  A PROBLEM  WITH  THE  DISK  DRIVE." 

5805 

PRINT  " THE  DISK  IS  FAULTY,  THE  DISK  IS  NOT 

INITIALIZED, 

5810 

PRINT  " OR  THERE  IS  NO  DISK  IN  THE  DRIVE" 

5815 

Ask_f or_dr ive=True 

5820 

END  IF 

5825 

END  WHILE 

5830 

SUBEND 

5835 

I 

5840 

! 

5845 

SUB  End_program(Reason$) 

5850 

1 

5855 

LOOP 

5860 

DISP  "PROGRAM  ENDED  ( "&Reason$&" ) " 

5865 

STOP 

5870 

END  LOOP 

5875 

SUBEND 

5880 

1 

5885 

1 

5890 

SUB  Dos_sheii(CoinDand$,  INTEGER  Print_f lag , Lines_retumed ) 

5895 

! 

5900 

COM  /Logical/  INTEGER  True, False 

5905 

ALLOCATE  Reply$[80] 

5910 

1 

5915 

Lines_retumed=0 

5920 

ON  TIMEOUT  19,. 08  GOTO  5960 

5925 

OUTPUT  19;"WAIT_OFF" 

5930 

OUTPUT  19;Coninand$&"  > HPW_PIPE" 

5935 

LOOP 

5940 

ENTER  19;Reply$ 

5945 

IF  Print_flag=True  THEN  PRINT  ReplyS 

5950 

Lines_returned=Lines_retumed+l 

5955 

END  LOOP 

5960 

OFF  TIMEOUT 

5965 

SUBEND 

5970 

! 

5975 

t 

5980 

SUB  Key_chirp 

5985 

BEEP  2500, .02 

5990 

SUBEND 

5995 

I 
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DEF  FNColumn$(String$) 

I 

INTEGER  Length, Max_iength 
Maix_iength=20 

I 

Length=LEN ( Str ing$ ) 

IF  Length>=Max_iength  THEN 

RETURN  String$[l,Max_length] 

ELSE 

RETURN  RPT$("  " ,Max_length-Length)&String$ 

END  IF 
FNEND 

I 

I 

SUB  Explain_routine 

I 

COM  /Logical/  INTEGER  True, False 
COM  /Print_dev/  INTEGER  Printout_dev 
INTEGER  Done 

INTEGER  Current_page,Max_page 
REAL  Reply ,Default_action 

I 

Current_page=l 
Max_page=4 
Done=False 
WHILE  NOT  Done 
CLEAR  SCREEN 
GOSUB  Select_page 

PRINT  " PAGE" ;Current_page; "OF" ;Max_page 

PRINT  " (1)  print  this  page  and  display  next  page  | (2)  display  next  page" 

PRINT  " (3)  display  previous  page  | (4)  continue  with  program"; 

IF  Current_page<>Max_page  THEN 
Def auit_action=2 
ELSE 

Default_action=4 
END  IF 

Enter_vaiue ( " 1 to  4", Reply, 1,4, True, Def auit_action) 

SELECT  Reply 
CASE  1 

PRINTER  IS  Printout_dev 
GOSUB  Select_page 
PRINTER  IS  1 

Current_page=(Current_page  MOD  Max_page)+1 
CASE  2 

Current_page=(Current_page  MOD  Max_page)+1 
CASE  3 

Current_page=( (Current_page+Max_page-2)  MOD  Max_page)+1 
CASE  4 

Done=True 
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6250 

6255 

6260 

6265 

6270 

6275 

6280 

6285 

6290 

6295 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6335 

63A0 

6345 

6350 

6355 

6360 

6365 

6370 

6375 

6380 

6385 

6390 

6395 

6400 

6405 

6410 

6415 

6420 

6425 

6430 

6435 

6440 

6445 

6450 

6455 

6460 

6465 

6470 

6475 

6480 

6485 

6490 

6495 


END  SELECT 
END  WHILE 
CLEAR  SCREEN 
SUBEXIT 
Select_page : ! 

SELECT  Current_page 
CASE  1 

Print_centered( "ROTATIONAL  WEAR  TEST") 

Print_centered( "National  Institute  Of  Standards  and  Technology") 

Print_centered( "Version  1.0  1989  by  EPW" ) 

PRINT 

PRINT 

Print_centered("THIS  PROGRAM  WILL  RUN  ANY  1 OF  3 MACHINES:") 

PRINT 

Print_centered( "The  crossed  cylinder  machine.") 

Print_centered( "The  block  on  ring  machine.") 

Print_centered("The  controlled  atmosphere  tribometer  (CAT).") 

PRINT 
PRINT 
CASE  4 

Print_centered("THE  DISK  DATA  FILE") 

PRINT 

PRINT  " The  disk  data  file  generated  is  an  ASCII  type  file  which  can  be  loaded  into" 

PRINT  "LOTUS  1-2-3  by  using  the  ’/  File  Import  Numbers’  command.  The  start  of  the" 

PRINT  "data  will  be  where  ever  the  cursor  on  the  spreadsheet  is  located.  More  than" 

PRINT  "1  file  can  be  imported  onto  the  same  spreadsheet  by  importing  the  first  data" 

PRINT  "set,  moving  the  cursor  to  a new  area,  and  then  importing  the  next  data  set." 

PRINT  "The  first  few  lines  of  the  data  is  a ’header’  giving  information  about  the" 

PRINT  "test.  After  that  is  the  actual  data.  The  sliding  distance  is  not  included  in" 

PRINT  "the  data  disk  file  to  save  disk  space  since  that  can  easily  be  calculated  by" 

PRINT  "1-2-3  using  information  in  the  header.  The  end  of  the  file  name  (the" 

PRINT  "extension)  should  be  ’.PRN’  for  1-2-3  to  read  it.” 

CASE  2 

Print_centered( "BEFORE  ATTEMPTING  TO  RUN  THIS  PROGRAM  THE  FOLLOWING  THINGS  SHOULD  BE  CHECKED:") 
PRINT 

Print_centered("Ail  equipment  to  be  used  is  powered  on.") 

Print_centered("If  the  printer  is  to  be  used,  make  sure  that  there  is  plenty  of  paper.”) 
Print_contered("The  data  disk  has  been  formatted  and  there  is  enough  room  on  it  for  the  data.”) 
PRINT 
PRINT 

Print_centered("IF  YOU  MUST  START  OVER:") 

PRINT 

Print_centered( "First  press  ’Shift’  and  ’Scroll  Lock’  at  the  same  time  to  stop  the  program.”) 
Print_centered( "Then  press  ’F3’  to  run  the  program.") 

PRINT 
CASE  3 

Print_centered("WHEN  ANSWERING  THE  QUESTIONS  NOTE  THAT:") 

PRINT 

Print_centered( "Some  questions  have  a default  value  which  is  displayed  while  others  do  not.") 
Print_centered( "Defaults , if  present,  can  be  used  by  simply  pressing  ’ENTER’.") 
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6500 

6505 

6510 

6515 

6520 

6525 

6530 

6535 

6540 

6545 

6550 

6555 

6560 

6565 

6570 

6575 

6580 

6585 

6590 

6595 


Print_centerGd(”If  no  default  is  present,  then  a reply  must  be  typed  in.") 

Print_centered{ "When  you  enter  a reply,  the  computer  will  ’chirp’  to  acknowledge  that  fact.") 
Print_CGntGrGd("If  your  reply  is  not  understood  by  the  computer,  an  error  message  will  be") 
Print_centered("issued  along  with  another  chance  to  enter  your  reply.") 

Print_centered("If  you  are  entering  a number,  you  can  not  reply  with  an  equation,  such  as") 
Print_centered( " ’ 1/2’ , but  must  reply  with  the  number,  such  as  ’.5’.") 

PRINT 

PRINT 

END  SELECT 
RETURN 
SUBEND 

I 

SUB  Print_centered(OPTIONAL  LineS) 

SELECT  NPAR 
CASE  0 
PRINT 
CASE  1 

PRINT  RPT$("  ",40-(LEN(Line$)  DIV  2)):Line$ 

END  SELECT 
SUBEND 
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APPENDIX  II  - DATA  PREPROCESSOR  PROGRAM 
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. *****  eric  P WHITENTON,  NIST,  FEB  1989  ***** 
OPTION  BASE  1 
DIM  D#{200) 


» -tt -k  ir -it -it  •/€  it  it  "k -it  it  •it  it  ft  it 'kin  it  It  It  it -it -ft  CONSTANTS  "kititiiitkkitititkkkitkkkkk 
CONST  Faise%  = 0 
CONST  True%  = -1 

> ititititirititiritititkirititititititkitititit  MAIN  PROGRAM  **************’<'f***** 

PRINT 

PRINT 

PRINT  " PREPROCESSOR" 

PRINT  ” (enter  'C  during  any  question  to  terminate  early)" 

PRINT 

PRINT  " This  program  will  read  in  columns  of  numbers  either  with  or  without  a header 
PRINT  "and  output  a new  file  of  the  data  with  the  rows  averaged." 

PRINT 

■GET  INPUT  FILE  DRIVE 
PRINT 

DoneEntryZ  = Faise% 

DO 

INPUT  "ENTER  drive  to  input  data  from  " , InDriveS 
IF  InDriveS  <>  ""  THEN  DoneEntryZ  = True/J 
LOOP  UNTIL  DoneEntryZ 

IF  INSTR( InDriveS,  ";")  = 0 THEN  InDriveS  = InDriveS  + 

■SHOW  WHAT  IS  ON  THAT  DRIVE 
PRINT 

ON  ERROR  GOTO  DiskErrorl 
FILES  InDriveS 
ON  ERROR  GOTO  0 

■GET  INPUT  FILE  NAME 
PRINT 

DoneEntry%  = False% 

DO 

INPUT  "ENTER  input  file  name  ",  InFileS 
IF  InFileS  <>  ""  THEN  DoneEntry%  = True% 

LOOP  UNTIL  DoneEntryX 

■DETERMINE  TYPE  OF  FILE  (WITH  OR  WITHOUT  HEADER),  SHOW  HEADER,  AND  GET  NColumnsX 
ON  ERROR  GOTO  DiskErrorl 

OPEN  "I",  #1,  InDriveS  + InFileS 
LINE  INPUT  #1,  LynelS 
LINE  INPUT  #1,  Lyne2S 
IF  INSTR(Lyne2S,  CHRSOA))  <>  0 THEN 
HeaderX  = TrueX 
NCommentsX  = VAL (LynelS) 

IF  NCommentsX  <>  0 THEN 
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PRINT 

PRINT  "COMMENTS  FOR  InDriveS  + InFiieS;  

PRINT  Lyne2$ 

FOR  Counter%  = 1 TO  NComments%  - 1 
LINE  INPUT  #1,  LyneS 
PRINT  Lyne$ 

NEXT  CounterX 
INPUT  in,  NColumns% 

ELSE 

PRINT 

PRINT  "NO  COMMENTS  FOR  InDrive$  + InFiie$; 

NColumnsZ  = VAL(Lyne2$) 

END  IF 
ELSE 

Header%  = Faise% 

NCoiuinns%  = 0 
PointerZ  = 1 

WHILE  (MID$(Lyne2$,  Pointer%,  1)  = " ")  AND  (Pointer%  <=  LEN(Lyne2$)) 
Pointer%  = Pointer%  + 1 
WEND 

WHILE  PointerZ  <=  LEN(Lyne2$) 

NCoiunmsZ  = NColumnsZ  + 1 

WHILE  (MID$(Lyiie2$,  PointerZ,  1)  <>  " ")  AND  (PointerZ  <=  LEN(Lyne2S)) 
PointerZ  = PointerZ  + 1 
WEND 

WHILE  (MID$(Lyne2$,  PointerZ,  1)  = " ")  AND  (PointerZ  <=  LEN(Lyne2$)) 
PointerZ  = PointerZ  + 1 
WEND 
WEND 
PRINT 

PRINT  "NO  HEADER  FOR  ; InDriveS  + InFileS; 

END  IF 
PRINT 

PRINT  NCoiumnsZ;  "columns" 

CLOSE  #1 
ON  ERROR  GOTO  0 

'DECIDE  IF  THIS  IS  THE  FILE  YOU  REALLY  WANTED 
PRINT 

INPUT  "ok  to  use  this  file?  (ENTER  'Y' ) ",  ReplyS 

IF  (ReplyS  = "Y")  OR  (ReplyS  = "y")  THEN 
ON  ERROR  GOTO  DiskErrorl 

'GET  OUTPUT  FILE  DRIVE 
PRINT 

DoneEntryZ  = FalseZ 
DO 

INPUT  "ENTER  drive  to  output  data  to  ",  OutDriveS 
IF  OutDriveS  <>  ""  THEN  DoneEntryZ  = TrueZ 
LOOP  UNTIL  DoneEntryZ 
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IF  INSTR(OutDrive$,  = 0 THEN  OutDrive$  = OutDriveS  + 

’SHOW  WHAT  IS  ON  THAT  DRIVE  IF  NEEDED 
IF  (Header%  = True%)  OR  (InDriveS  <>  OutDriveS)  THEN 
PRINT 

FILES  OutDriveS 
END  IF 

■GET  OUTPUT  FILE  NAME 
PRINT 

DoneEntry%  = False% 

DO 

INPUT  "ENTER  output  file  name  ",  OutFiieS 
IF  OutFiieS  <>  InFiieS  THEN  DoneEntry%  = True% 

LOOP  UNTIL  DoneEntry% 

ON  ERROR  GOTO  0 


'ENTER  ROWS  TO  AVERAGE 
DoneEntry%  = False% 

PRINT 

DO 

INPUT  "ENTER  the  number  of  rows  to  average  " , RowsToAverage% 
IF  RowsToAverageZ  > 0 THEN  DoneEntry%  = True% 

LOOP  UNTIL  DoneEntry% 

■MAKE  OUTPUT  FILE 
ON  ERROR  GOTO  DiskErrorl 

OPEN  "I",  #1,  InDriveS  + InFiieS 
OPEN  "0",  #2,  OutDriveS  + OutFiieS 


■HEADER  FOR  OUTPUT  FILE 


IF  HeaderZ  THEN 

LINE  INPUT  #1,  LyneS 

PRINT  #2,  NCouments?  + 2 

FOR  Counter%  = 1 TO  NCoinnents% 


LINE  INPUT  #1,  LyneS 
PRINT  #2,  LyneS 


NEXT  Counter% 


PRINT  #2,  CHRSOA);  ' 
PRINT  #2,  CHRSOA);  ' 
LINE  INPUT  #1,  LyneS 
PRINT  #2.  LyneS 
LINE  INPUT  #1,  LyneS 
PRINT  #2,  LyneS 
ELSE 

PRINT  i^2,  2 
PRINT  #2,  CHRSOA); 
PRINT  #2,  CHRSOA); 
PRINT  #2,  NCoiumns% 
END  IF 


"ROWS  AVERAGED";  CHRSOA);  " "; 
"ORIGINAL  FILE  NAME";  CHRSOA); 


"ROWS  AVERAGED";  CHRSOA);  " "; 
"ORIGINAL  FILE  NAME";  CHRSOA); 


RowsToAverageZ 

" ";  CHRSOA);  InDriveS  + InFiieS;  CHRSOA) 


RowsToAverage% 

" ";  CHRSOA);  InDriveS  + InFiieS;  CHRSOA) 
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’AVERAGED  ROWS  FOR  OUTPUT  FILE 
DoneDisking%  = Faise% 

WHILE  NOT  DoneDisking% 

FOR  Coi%  = 1 TO  NCoiuinns% 

D#(Col%)  = 0# 

NEXT  Coi% 

RowsZ  = 0 

DoneAveraging%  = False% 

WHILE  NOT  DoneAveragingX 
LINE  INPUT  #1,  Lyne$ 

WHILE  LEFTS (Lyne$.  1)  = " " 

LyneS  = RIGHT$(Lyne$,  LEN(Lyne$)  - 1) 

WEND 

FOR  Coi%  = 1 TO  NCoiunms% 

Pointer^  = 1 
EndOfNumberZ  = Faise% 

WHILE  NOT  EndOfNumberX 

IF  PointerZ  = LEN(Lyne$)  THEN  EndOfNumberZ  = True%  ELSE  IF  MID$(Lyne$,  PointerZ,  1)  = " " THEN  EndOfNumb 
erZ  = TrueZ  ELSE  PointerZ  = PointerZ  + 1 
WEND 

D#(ColZ)  = D#(ColZ)  + VAL( LEFTS (LyneS,  PointerZ)) 

LyneS  = RIGHTSCLyneS,  LEN(LyneS)  - PointerZ) 

WHILE  LEFTS (LyneS,  1)  = " " 

LyneS  = RIGHTS (LyneS,  LEN( LyneS)  - 1) 

WEND 

NEXT  CoiZ 
RowsZ  = RowsZ  + 1 

IF  RowsZ  = RowsToAverageZ  THEN  DoneAveragingZ  = TrueZ 
IF  EOF(l)  THEN  DoneAveragingZ  = TrueZ;  DoneDiskingZ  = TrueZ 
WEND 

IF  RowsZ  = RowsToAverageZ  THEN 
FOR  ColZ  = 1 TO  NCoiumnsZ 

LyneS  = STRS(CSNG(D#(CoiZ ) / RowsZ)) 

IF  LEFTS (LyneS,  1)  = " " THEN  LyneS  = RIGHTS (LyneS,  LEN( LyneS)  - 1) 

IF  CoiZ  <>  1 THEN  LyneS  = " " + LyneS 
PRINT  #2,  LyneS; 

NEXT  CoiZ 
PRINT  #2, 

END  IF 
WEND 
CLOSE  #2 
CLOSE  #1 
ON  ERROR  GOTO  0 
END  IF 
PRINT 

PRINT  "PROGRAM  DONE" 

PRINT 

END 
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> *****************  PJ2J,  ERROR  ***************** 

DiskErrorl ; 

RESUME  NextLine 
NextLine: 

ON  ERROR  GOTO  DiskErrorZ 
CLOSE 

ON  ERROR  GOTO  0 
PRINT 

PRINT  "DISK  ERROR  !" 

PRINT 

END 

DiskError2 : 


RESUME  NEXT 


APPENDIX  III  - SAMPLE  PRINTOUT 
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DATE:  7 Feb  1 98Q 

CYCLES  PER  DATA  SET:  1 

1 OF  EOERY  25  DATA  SETS  PRINTED  OUT 

TYPE  OF  TEST:  BLOCK  ON  RING 

APPLIED  LOAD  (N):  33.10875 

ULTIMATE  DISK  FILE  NAME:  B : SLCTST6 1 . PRN 

SPECIMEN  MATERIALS:  RING:440C  PIN:Cu  SOLID  99.9997.  LAB  AIR  ATMOSPHERE 
LUBRICATION;  NONE 

RELATIUE  HUMIDITY  <%):  50  (UNCORRECTED  AT  START  OF  TEST) 

SPEED  (RPM):  75  (estimated) 

OTHER  COMMENTS:  MECHANICAL  ZERO  TAKEN  WOTH  NO  LOAD  ON  LOAD  CELL 

UNITS 
meters 
coef 


CALIBRATION  FACTORS:  INTERCEPT 

Distance  0 

Friction  -.0454337327746 

LAST  CALIBRATED  JAN  23  1989 


SLOPE 

.10972 

82372484615 


T ime( h : m : s ) 

Di 5tance( meters ) 

Frict ion( coef ) 

00:00: 06 

0 

.162 

00:00:23 

2.74 

.503 

00:00:43 

5,49 

,51 

00:01:03 

8.23 

.449 

00:01 : 24 

10.97 

.384 

00:01 : 44 

15.71 

.384 

00:02:04 

16.46 

.365 

00:02:24 

19.2 

,369 

00:02:44 

21.94 

.381' 

00 : 03 : 04 

24.69 

.423 

00:03:24 

27.43 

.416 

00:03: 44 

30.17 

.391 

00:04: 04 

32,92 

.372 

00:04:24 

35.66 

.392 

00:04: 44 

38.4 

,394 

00:05: 04 

41.14 

.342 

00:05:24 

43.89 

,371 

00 : 05 : 44 

46.63 

,515 

00:06:04 

49.37 

.447 

00:06:24 

52.12 

.409 

00:06:45 

54.86 

.463 

00:07:05 

57.6 

.451 

00:07:25 

60.35 

.492 

00:07:45 

63.09 

.404 

00:08:05 

65.83 

.566 

00:08:25 

68.58 

.436 

00:08:45 

71  .32 

.408 

00:09:05 

74.06 

.462 

00:09:25 

76.8 

,438 

00:09:45 

79,55 

.38 

00:10:05 

82.29 

.494 

00:10:25 

85.03 

.587 

00 : 10:45 

87.78 

.425 

00:11:05 

90.52 

.415 

00:1 1 :26 

93.25 

.462 

00:11:46 

96 

.439 

00:12:06 

98.75 

.429 

00:12:26 

101.49 

. 435 

00:12:46 

104.23 

.432 

00:13:06 

106.98 

.465 

00 : ! 3 : ZB 

109.72 

.526 

00  : 1 3 : 4B 

112.46 

.532 

00 : ! 4 : 0G 

115.21 

.565 

00: 14;ZG 

117.95 

.516 

00;  14:4G 

120.69 

.468 

00:  15:0G 

123.44 

.539 

00:15:26 

126.18 

.509 

00:15:46 

128.92 

.625 

00:16:07 

131 .66 

.452 

00:16:26 

134.41 

.452 

00:16:47 

137.15 

.443 

00: 17:07 

139.89 

.54 

00: 17:27 

142.64 

.562 

00:17:47 

145.38 

.507 

00:18:07 

148.12 

.438 

00:18:27 

150.86 

.349 

00:18:47 

153.61 

.425 

00:19:07 

156.55 

.395 

00:19:27 

159.09 

.384 

00:19:47 

161.84 

.388 

00:20: 07 

164.58 

.45 

00:20:27 

167.32 

.551 

00:20:47 

170.07 

.526 

00:21:07 

172.81 

.559 

00:21 :27 

175.55 

.554 

00:21:47 

178.29 

.574 

00:22:07 

181.04 

.456 

00:22:27 

183.78 

.51 

00:22:47 

186.52 

.541.0 

00:23:07 

189.27 

.514 

00:23:27 

1 92.01 

.502 

00:23:47 

1 94.75 

.599 

00:24:07 

197.5 

.494 

00:24:27 

200.24 

.508 

00:24:47 

202.98 

.361 

00:25:07 

205.72 

.526 

00:25:27 

208.47 

.545 

00:25:47 

21 1 .21 

.408 

00:26:07 

213.95 

.439 

00:26:27 

216.7 

.542 

00:26:47 

219.44 

.49 

00:27:07 

222.18 

.6 

00:27:27 

224.95 

.558 

00:27:47 

227.67 

.47 

00:28:07 

230.41 

.379 

00:28:27 

2 J J . 16 

.503 

00:28:47 

235.9 

.545 

00:29:07 

238.64 

.482 

00:29:27 

241.58 

.512 

00:29:47 

244. 13 

.491 

00:30:07 

246.87 

.556 

00:30:27 

249.61 

.477 

00:30:47 

252.36 

.505 

00:31:07 

255.1 

.499 

00:31 :27 

257.84 

.322 

00:31:47 

260.59 

.462 

00:32:07 

26  J . 

.494 

00:32:27 

266.07 

.487 

00:32: 47 

268.81 

.408 

00:33:07 

271.56 

.535 

44 

00:33:27 

274.3 

.43 

00:33:47 

277.04 

.465 

00:34: 07 

279.79 

. 454 

00:54:27 

282.53 

.374 

00:34:47 

285.27 

. 446 

00:35:07 

288.01 

.388 

00:35:27 

290.76 

.442 

00:35:47 

293.5 

.513 

00 : 3G : 07 

296.24 

.427 

00:36:27 

298.99 

.409 

00:36:47 

301 .73 

.515 

00:37:07 

304.47 

.505 

00:37:26 

507.22 

.416 

00:37:46 

309.96 

.379 

00:38:06 

312.7 

.418 

00:38:26 

315.44 

.44 

00:38:46 

318.19 

.377 

00:39:06 

.i20 . 9.i 

.456 

00:39:26 

323.67 

.496 

00:39:46 

326.42 

.48 

00 : 40 : 06 

329.16 

.42 

00:40:26 

3.i  1 . 9 

.478 

00:40:46 

334.65 

.501 

00:41:06 

337.39 

.503 

00:41 :24 

339.91 

.409 

TEST  TERMINATED  (NORMAL  TEST  TERMINATION) 
3099  REVOLUTIONS 

5.3  READINGS  PER  CYCLE  ON  AVERAGE 


Friction  (1  coefD 
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